home *** CD-ROM | disk | FTP | other *** search
/ Ultimedia 2 / Ultimedia 2.iso / tools / soundtools / xmodule / install_xmodule < prev    next >
Text File  |  1994-05-05  |  5KB  |  206 lines
  1. ; $VER: Install_XModule 2.8 (5.5.94)
  2. ;
  3. ; Installer script for XModule
  4.  
  5. ;***************************************************************************
  6. ; English strings
  7. ;***************************************************************************
  8.  
  9. (set default_lang 1)
  10.  
  11. (set #askdirstr        (cat "In which directory should XModule be installed?\n"
  12.                     "(A drawer called \"XModule\" will be created)"))
  13.  
  14. (set #askdir-help    (cat "Please select the directory or partition in which you would like "
  15.                     "XModule installed (a drawer named \"XModule\" will be created "
  16.                     "in the directory you have selected).\n\n\n"
  17.                     @askdir-help))
  18.  
  19. (set #magicwb-str    (cat "Do you want MagicWB-style icons for XModule?\n"
  20.                     "(Requires MagicWB installed in your system)\n\n"
  21.                     "MagicWB is a collection of fine 8 color icons made by "
  22.                     "Martin Huttenloher.  These icons require a special palette, "
  23.                     "otherwise they look awful.\n"))
  24.  
  25. (set #magicwb-help    "Answer \"Yes\" only if your system preferences are properly set.")
  26.  
  27. (set #docformat-help (cat "Choose AmigaGuide documentation if you are running "
  28.                     "WorkBench 2.1 or higher and/or you have Commodore AmigaGuide "
  29.                     "hypertext reader installed.  Otherwhise choose the normal "
  30.                     "documentation.\n\n"
  31.                     @askoptions-help))
  32.  
  33. (set #bad-kick        "Sorry, XModule requires Kickstart version 2.04 or higher.")
  34.  
  35. (set #makingdir            "Creating XModule directory...")
  36. (set #copying-xmodule    "Copying XModule...")
  37. (set #copying-doc        "Copying ASCII Documentation...")
  38. (set #copying-guide        "Copying AmigaGuide Documentation...")
  39.  
  40.  
  41. ;***************************************************************************
  42. ; Make sure we are running under a 2.04 ROM
  43. ;***************************************************************************
  44.  
  45. (set sys-ver (/ (getversion) 65536))
  46.  
  47. (if (< sys-ver 37)
  48.     (abort #bad-kick)
  49. )
  50.  
  51.  
  52. (welcome) ; Say Hi!
  53.  
  54.  
  55. ;***************************************************************************
  56. ; Ask user where he wants the XModule files
  57. ;***************************************************************************
  58.  
  59. (set @target-dir
  60.     (askdir
  61.         (prompt #askdirstr)
  62.         (help #targetsel #askdir-help)
  63.         (default @default-dest)
  64.     )
  65. )
  66.  
  67. (set @target-dir (tackon @target-dir "XModule"))
  68. (set @default-dest @target-dir)
  69.  
  70. ;***************************************************************************
  71. ; Make the XModule directory
  72. ;***************************************************************************
  73.  
  74. (makedir
  75.     @target-dir
  76.     (infos)
  77.     (help @makedir-help)
  78.     (prompt #makingdir)
  79. )
  80.  
  81.  
  82. ;***************************************************************************
  83. ; Ask for MagicWB icons
  84. ;***************************************************************************
  85.  
  86. (if (askbool
  87.         (prompt #magicwb-str)
  88.         (help #magicwb-help)
  89.     )
  90.  
  91.     (set @magic-icons 1)
  92. )
  93.  
  94.  
  95. ;***************************************************************************
  96. ; Copy the XModule executable and its icon
  97. ;***************************************************************************
  98.  
  99. (copyfiles
  100.     (prompt @copying-xmodule)
  101.     (source "XModule")
  102.     (dest @target-dir)
  103.     (infos)
  104. )
  105.  
  106. (if (= @magic-icons 1)
  107.     (copyfiles
  108.         (source "MagicWB_Icons/XModule.info")
  109.         (dest @target-dir)
  110.     )
  111. )
  112.  
  113. (complete 40)
  114.  
  115. ;***************************************************************************
  116. ; Copy default icon for modules & instruments
  117. ;***************************************************************************
  118.  
  119. (if (= @magic-icons 1)
  120.     (
  121.         (copyfiles
  122.             (source "MagicWB_Icons/")
  123.             (choices "def_Module.info" "def_Instrument.info")
  124.             (dest @target-dir)
  125.         )
  126.     )
  127.  
  128.     ( ; else
  129.         (copyfiles
  130.             (source "")
  131.             (choices "def_Module.info" "def_Instrument.info")
  132.             (dest @target-dir)
  133.         )
  134.     )
  135. )
  136.  
  137. (tooltype
  138.     (dest (tackon @target-dir "def_Module"))
  139.     (setdefaulttool (tackon @target-dir "XModule"))
  140.     (noposition)
  141. )
  142.  
  143.  
  144.  
  145. ;***************************************************************************
  146. ; Copy documentation files
  147. ;***************************************************************************
  148.  
  149. (complete 70)
  150.  
  151. (set doc-choice (askoptions
  152.     (prompt "Please select which documentation format(s) to install:")
  153.     (help #docformat-help)
  154.  
  155.     (choices
  156.         "AmigaGuide Documentation"
  157.         "ASCII Documentation"
  158.     )
  159.     (default (if (OR (exists "SYS:Utilities/AmigaGuide") (exists "SYS:Utilities/MultiView")) 1 2))
  160. ))
  161.  
  162. (if (BITAND doc-choice 1)
  163. (
  164.     (copyfiles
  165.         (prompt @copying-guide)
  166.         (source "XModule.guide")
  167.         (dest @target-dir)
  168.         (infos)
  169.     )
  170.  
  171.     (if (= @magic-icons 1)
  172.         (copyfiles
  173.             (source "MagicWB_Icons/XModule.guide.info")
  174.             (prompt @copying-xmodule)
  175.             (dest @target-dir)
  176.         )
  177.     )
  178.  
  179.     (if (< sys-ver 39)
  180.         (tooltype
  181.             (dest (tackon @target-dir "XModule.guide"))
  182.             (setdefaulttool "SYS:Utlities/AmigaGuide")
  183.         )
  184.     )
  185. ))
  186.  
  187. (if (BITAND doc-choice 2)
  188. (
  189.     (copyfiles
  190.         (prompt @copying-doc)
  191.         (source "XModule.doc")
  192.         (dest @target-dir)
  193.         (infos)
  194.     )
  195.  
  196.     (if (= @magic-icons 1)
  197.         (copyfiles
  198.             (source "MagicWB_Icons/XModule.doc.info")
  199.             (prompt @copying-xmodule)
  200.             (dest @target-dir)
  201.         )
  202.     )
  203. ))
  204.  
  205. (complete 100)
  206.